home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dicewahl.dir / 00022_Script_22 < prev    next >
Text File  |  1979-12-31  |  725b  |  17 lines
  1. on exitFrame
  2.   global reg
  3.   if chars(baEncryptText( the text of member 23 , "0101010101" ),1,16)="^.R9FI&ABX2+N>J6" then
  4.     puppetsound "icemag"
  5.     set OK = baWriteIni( "Dice3.1", "Passwort", the text of member 23, "dice3.ini" )
  6.     set OK = baWriteIni( "Dice3.1", "Girl1", "1", "dice3.ini" )
  7.     set OK = baWriteIni( "Dice3.1", "Girl2", "1", "dice3.ini" )
  8.     set OK = baWriteIni( "Dice3.1", "Girl3", "1", "dice3.ini" )
  9.     set OK = baWriteIni( "Dice3.1", "Girl4", "1", "dice3.ini" )
  10.     set OK = baWriteIni( "Dice3.1", "Girl5", "1", "dice3.ini" )
  11.     set reg=1
  12.     go to "Start"
  13.     exit
  14.   end if  
  15.   --set the text of member 25 =baEncryptText( the text of member 23 , "0101010101" )
  16.   go to the frame
  17. end